-- background: 6520 from stack: in -- bmap block id: 6806 -- flags: 4000 -- background id: 0 -- name: CD ----- HyperTalk script ----- on doCopyvol global artistcopy,titlecopy,selcopy,perfcopy,sourcecopy,Bselcopy put empty into Bselcopy if the hilite of bkgnd button "Vol I" is true then put field "artist" into artistcopy put field "title" into titlecopy put field "Isel" into selcopy put field "Iperf" into perfcopy end if if the hilite of bkgnd button "Vol II" is true then put bkgnd field "IIartist" into artistcopy put bkgnd field "IItitle" into titlecopy put bkgnd field "IIsel" into selcopy put bkgnd field "IIperf" into perfcopy end if if the hilite of bkgnd button "Vol III" is true then put bkgnd field "IIIartist" into artistcopy put bkgnd field "IIItitle" into titlecopy put bkgnd field "IIIsel" into selcopy put bkgnd field "IIIperf" into perfcopy end if put field "format" into sourcecopy answer "Destination of copied information?" with "cancel" or "volume" or "TAPE" if it is "cancel" then exit doCopyVol put it into reply if reply is "volume" then answer "Which volume or volumes?" with "volume II" or "volume III" or "vols II&III" if it is "volume II" then toVol2 if it is "volume III" then toVol3 if it is "vols II&III" then toVol2 toVol3 end if end if if reply is "TAPE" then answer "Go to desired or make new TAPE card & paste" end doCopyVol on toVol2 global artistcopy,titlecopy,perfcopy put artistcopy into bkgnd field "IIartist" put titlecopy into bkgnd field "IItitle" put perfcopy into bkgnd field "IIperf" end toVol2 on toVol3 global artistcopy,titlecopy,perfcopy put artistcopy into bkgnd field "IIIartist" put titlecopy into bkgnd field "IIItitle" put perfcopy into bkgnd field "IIIperf" end toVol3 -- part 1 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=366 top=94 right=109 bottom=488 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 10 -- style flags: 0 -- line height: 13 -- part name: recording label ----- HyperTalk script ----- on mouseDown doRecLabel end mouseDown -- part 2 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=63 top=0 right=15 bottom=213 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 10 -- style flags: 0 -- line height: 13 -- part name: content class ----- HyperTalk script ----- on mouseDown doContentClass end mouseDown -- part 3 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=402 top=0 right=15 bottom=512 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 10 -- style flags: 0 -- line height: 13 -- part name: catalog number -- part 4 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=11 top=41 right=55 bottom=237 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 10 -- style flags: 256 -- line height: 13 -- part name: artist ----- HyperTalk script ----- on returnInField click at location of field "title" end returnInField -- part 5 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=11 top=68 right=83 bottom=237 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 10 -- style flags: 0 -- line height: 13 -- part name: title ----- HyperTalk script ----- on returnInField click at 15,103 end returnInField -- part 6 (field) -- low flags: 00 -- high flags: 0002 -- rect: left=11 top=98 right=126 bottom=237 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 10 -- style flags: 0 -- line height: 13 -- part name: Iperf -- part 7 (field) -- low flags: 00 -- high flags: 4007 -- rect: left=11 top=140 right=242 bottom=237 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 10 -- style flags: 0 -- line height: 13 -- part name: Isel -- part 10 (field) -- low flags: 80 -- high flags: 0002 -- rect: left=11 top=40 right=55 bottom=237 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 10 -- style flags: 256 -- line height: 13 -- part name: IIartist ----- HyperTalk script ----- on returnInField click at location of field "IItitle" end returnInField -- part 11 (field) -- low flags: 80 -- high flags: 0002 -- rect: left=11 top=68 right=83 bottom=237 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 10 -- style flags: 0 -- line height: 13 -- part name: IItitle ----- HyperTalk script ----- on returnInField click at 15,103 end returnInField -- part 12 (field) -- low flags: 80 -- high flags: 0002 -- rect: left=11 top=98 right=126 bottom=237 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 10 -- style flags: 0 -- line height: 13 -- part name: IIperf -- part 13 (field) -- low flags: 80 -- high flags: 4007 -- rect: left=11 top=140 right=242 bottom=237 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 10 -- style flags: 0 -- line height: 13 -- part name: IIsel -- part 14 (field) -- low flags: 80 -- high flags: 0002 -- rect: left=11 top=40 right=55 bottom=237 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 10 -- style flags: 256 -- line height: 13 -- part name: IIIartist ----- HyperTalk script ----- on returnInField click at location of field "IIItitle" end returnInField -- part 15 (field) -- low flags: 80 -- high flags: 0002 -- rect: left=11 top=68 right=83 bottom=237 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 10 -- style flags: 0 -- line height: 13 -- part name: IIItitle ----- HyperTalk script ----- on returnInField click at 15,103 end returnInField -- part 16 (field) -- low flags: 80 -- high flags: 0002 -- rect: left=11 top=98 right=126 bottom=237 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 10 -- style flags: 0 -- line height: 13 -- part name: IIIperf -- part 17 (field) -- low flags: 80 -- high flags: 4007 -- rect: left=11 top=140 right=242 bottom=237 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 10 -- style flags: 0 -- line height: 13 -- part name: IIIsel -- part 18 (button) -- low flags: 00 -- high flags: 0006 -- rect: left=424 top=149 right=162 bottom=487 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Remarks ----- HyperTalk script ----- on mouseUp if the hilite of bkgnd button "Remarks" is false then show bkgnd field "remarks" set the hilite of bkgnd button "Remarks" to true else hide bkgnd field "remarks" set the hilite of bkgnd button "Remarks" to false end if end mouseUp -- part 19 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=423 top=172 right=186 bottom=458 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 10 -- style flags: 256 -- line height: 13 -- part name: numVol ----- HyperTalk script ----- on mouseDown put "1;2;3" into choices put the value of 1 into lastItem get topLeft of target get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it)) if the result is not empty then put the result if item 1 of it is not empty then put item 1 of it into bkgnd fld "numVol" if bkgnd fld "numVol" contains "1" then setCD1 end if if bkgnd fld "numVol" contains "2" then if the hilite of bkgnd button "Vol III" is true then setCD2 end if end if end if end mouseDown -- part 21 (button) -- low flags: 00 -- high flags: 4006 -- rect: left=353 top=192 right=204 bottom=422 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Vol I ----- HyperTalk script ----- on mouseUp setCD1 end mouseUp -- part 22 (button) -- low flags: 00 -- high flags: 0006 -- rect: left=353 top=210 right=223 bottom=420 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Vol II ----- HyperTalk script ----- on mouseUp setCD2 end mouseUp -- part 23 (button) -- low flags: 00 -- high flags: 0006 -- rect: left=353 top=228 right=240 bottom=420 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Vol III ----- HyperTalk script ----- on mouseUp if bkgnd fld "numVol" contains "3" then if the hilite of bkgnd button "Vol III" is false then set the hilite of bkgnd button "Vol III" to true set the hilite of bkgnd button "Vol II" to false set the hilite of bkgnd button "Vol I" to false hide bkgnd field "Isel" hide bkgnd field "title" hide bkgnd field "Iperf" hide bkgnd field "artist" hide bkgnd field "IIsel" hide bkgnd field "IItitle" hide bkgnd field "IIartist" hide bkgnd field "IIperf" show bkgnd field "IIIsel" show bkgnd field "IIItitle" show bkgnd field "IIIartist" show bkgnd field "IIIperf" end if end if end mouseUp -- part 24 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=316 top=130 right=147 bottom=351 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: SPARS ----- HyperTalk script ----- on mouseDown put "AAD;ADD;DDD;XXD" into choices put the value of 1 into lastItem get topLeft of target get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it)) if the result is not empty then put the result if item 1 of it is not empty then put item 1 of it into bkgnd fld "SPARS" end if end mouseDown -- part 25 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=274 top=0 right=15 bottom=358 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 10 -- style flags: 0 -- line height: 13 -- part name: format ----- HyperTalk script ----- on mouseDown put "CD;CDV;CD+Graphics;CD 3 inch;CD 5 inch" into choices put the value of 1 into lastItem get topLeft of target get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it)) if the result is not empty then put the result if item 1 of it is not empty then put item 1 of it into bkgnd fld "format" end if end mouseDown -- part 26 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=183 top=302 right=333 bottom=225 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: TAPEswitch ----- HyperTalk script ----- on mouseUp goTAPE end mouseUp -- part 27 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=135 top=302 right=333 bottom=176 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: LPswitch ----- HyperTalk script ----- on mouseUp goLP end mouseUp -- part 28 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=87 top=302 right=333 bottom=128 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: CDdummy ----- HyperTalk script ----- on mouseUp put the number of cards of this background into quant put ("AudioVideo Library currently contains " & quant & " sets of Compact Discs") into message box end mouseUp -- part 29 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=231 top=302 right=333 bottom=272 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: VIDEOswitch ----- HyperTalk script ----- on mouseUp goVideo end mouseUp -- part 30 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=470 top=318 right=333 bottom=506 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: SkipNext ----- HyperTalk script ----- on mouseUp go to next card of this background end mouseUp -- part 31 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=432 top=318 right=333 bottom=468 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: SkipPrev ----- HyperTalk script ----- on mouseUp go to prev card of this background end mouseUp -- part 32 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=6 top=302 right=334 bottom=76 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Power ----- HyperTalk script ----- on mouseUp doPower end mouseUp -- part 33 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=394 top=290 right=305 bottom=430 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Play ----- HyperTalk script ----- on mouseUp doPlay end mouseUp -- part 34 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=280 top=318 right=333 bottom=316 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: PrintCard ----- HyperTalk script ----- on mouseUp doPrint end mouseUp -- part 35 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=318 top=290 right=305 bottom=354 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: NewCard ----- HyperTalk script ----- on mouseUp setCD1 visual effect scroll down doMenu New Card put "1" into bkgnd fld "numVol" put "XXD" into bkgnd fld "SPARS" end mouseUp -- part 36 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=280 top=290 right=305 bottom=316 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Delete ----- HyperTalk script ----- on mouseUp doDelete go to previous card of background "CD" end mouseUp -- part 37 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=394 top=318 right=333 bottom=430 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: ToMaster ----- HyperTalk script ----- on mouseUp doMenu first end mouseUp -- part 38 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=432 top=290 right=305 bottom=468 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Prev ----- HyperTalk script ----- on mouseUp go to prev card end mouseUp -- part 39 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=470 top=290 right=305 bottom=506 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Next ----- HyperTalk script ----- on mouseUp go to next card end mouseUp -- part 40 (field) -- low flags: 01 -- high flags: 0002 -- rect: left=449 top=124 right=139 bottom=489 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 3 -- text size: 10 -- style flags: 0 -- line height: 13 -- part name: year ----- HyperTalk script ----- on mouseDown chooseYear end mouseDown -- part 41 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=356 top=290 right=307 bottom=392 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Search ----- HyperTalk script ----- on mouseUp doSearch end mouseUp -- part 42 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=356 top=318 right=333 bottom=392 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Sort ----- HyperTalk script ----- on mouseUp push card go to first card doSort end mouseUp -- part 63 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=318 top=318 right=333 bottom=354 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: Help ----- HyperTalk script ----- on mouseUp push card go to card "CDhelp" of stack "AudioVideoUtilities" end mouseUp -- part 65 (field) -- low flags: 80 -- high flags: 4002 -- rect: left=6 top=259 right=341 bottom=508 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 3 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: remarks -- part 66 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=463 top=231 right=251 bottom=502 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: copy ----- HyperTalk script ----- on mouseUp global artistcopy,titlecopy,perfcopy,selcopy doCopyVol end mouseUp -- part 67 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=287 top=94 right=109 bottom=488 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: rec label activate ----- HyperTalk script ----- on mouseDown send mouseDown to field "recording label" end mouseDown -- part 68 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=421 top=124 right=139 bottom=489 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: year activate ----- HyperTalk script ----- on mouseDown send mouseDown to field "year" end mouseDown -- part 69 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=281 top=130 right=147 bottom=351 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: SPARS activate ----- HyperTalk script ----- on mouseDown send mouseDown to field "SPARS" end mouseDown -- part 70 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=322 top=172 right=186 bottom=458 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: num vol activate ----- HyperTalk script ----- on mouseDown send mouseDown to field "numVol" end mouseDown -- part 71 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=0 top=0 right=15 bottom=213 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: content class activate ----- HyperTalk script ----- on mouseDown send mouseDown to field "content class" end mouseDown -- part 72 (button) -- low flags: 00 -- high flags: 2000 -- rect: left=216 top=0 right=15 bottom=358 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: format activate ----- HyperTalk script ----- on mouseDown send mouseDown to field "format" end mouseDown -- part 73 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=78 top=28 right=43 bottom=170 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: artist user entry ----- HyperTalk script ----- on mouseDown fieldMsg end mouseDown -- part 74 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=78 top=55 right=70 bottom=170 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: user entry ----- HyperTalk script ----- on mouseDown fieldMsg end mouseDown -- part 75 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=78 top=84 right=99 bottom=170 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: user entry ----- HyperTalk script ----- on mouseDown fieldMsg end mouseDown -- part 76 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=79 top=127 right=142 bottom=171 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: user entry ----- HyperTalk script ----- on mouseDown fieldMsg end mouseDown -- part 77 (button) -- low flags: 00 -- high flags: 0000 -- rect: left=364 top=0 right=15 bottom=402 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 1 -- font id: 0 -- text size: 12 -- style flags: 0 -- line height: 16 -- part name: user entry ----- HyperTalk script ----- on mouseDown fieldMsg end mouseDown